home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / PROBLEMS / BENCHMARK / BUBBLESORT / bubbletest / tile-forth / !run next >
Text File  |  1992-05-17  |  395b  |  9 lines
  1. set bubble_tile-forth$dir <obey$dir>
  2. *if "<alias$tile>"="" then error 0 install tile-forth version 2.00 ! doubleclick to !Tile
  3. tile <bubble_tile-forth$dir>.source { > <bubble_tile-forth$dir>.output }
  4. set bubbletest$dir <obey$dir>.^
  5. <bubbletest$dir>.prove <bubble_tile-forth$dir>.output 3 { > <bubble_tile-forth$dir>.time }
  6. settype <bubble_tile-forth$dir>.time text
  7. <bubble_tile-forth$dir>.time
  8.  
  9.